function onLook(cid, thing, position, lookDistance)
local str = ""
if not isCreature(thing.uid) then
 local iname = getItemInfo(thing.itemid)
 if isPokeball(thing.itemid) then

  local pokename = getItemAttribute(thing.uid, "poke")
  local item = getItemInfo(thing.itemid)
  str = "You see "..item.article.." "..item.name..".\n"
  str = str.."It contains "..getArticle(pokename).." "..pokename.." [level "..getItemAttribute(thing.uid, "level").."].\n"
  local boost = getItemAttribute(thing.uid, "boost") or 0
  local boostshow = ""
  if boost > 0 then
   str = str.."Boost level: +"..boost..".\n"
  end
  if getItemAttribute(thing.uid, "nick") then
   str = str.."It's nickname is: "..getItemAttribute(thing.uid, "nick")..".\n"
  end

  if getItemAttribute(thing.uid, "gender") == SEX_MALE then
   str = str.."It is male."
  elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then
   str = str.."It is female."
  else
   str = str.."It is genderless."
  end

  str = str.."\n--- Status ---"
  str = str.."\nOffense: "..math.floor(getItemAttribute(thing.uid, "offense")).." Defense: "..math.floor(getItemAttribute(thing.uid, "defense")).."\n"
  str = str.."Agility: "..math.floor(getItemAttribute(thing.uid, "speed")).." Sp. Attack: "..math.floor(getItemAttribute(thing.uid, "specialattack")).."\n"
  str = str.."Vitality: "..math.floor(getItemAttribute(thing.uid, "vitality")).."" 
 doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)
 return false
 elseif string.find(iname.name, "fainted") or string.find(iname.name, "defeated") then
  str = "You see a "..string.lower(iname.name).." ["..getItemAttribute(thing.uid, "level").."].\n"
  if getItemAttribute(thing.uid, "gender") == SEX_MALE then
   str = str.."It is male."
  elseif getItemAttribute(thing.uid, "gender") == SEX_FEMALE then
   str = str.."It is female."
  else
   str = str.."It is genderless."
  end
  doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)
 return false
 else
 return true
 end
end
local npcname = getCreatureName(thing.uid)
local l = string.len(npcname)
 if not isPlayer(thing.uid) and not isMonster(thing.uid) then
  --string.sub(npcname, l - 1, l) == "  " then
  local article = getPlayerStorageValue(thing.uid, 9891) == 1 and "He is" or "She is"
  local nname = string.sub(npcname, 1, l - 2)
  if nname == getCreatureName(cid) then
   nname = "yourself"
   article = "You are"
  end
  str = "You see "..nname..". "..article.." a pokemon trainer."
  doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)
 return false
 end
if not isMonster(thing.uid) then
return true
end
if getCreatureName(thing.uid) == "Evolution" then return false end
if not isSummon(thing.uid) then
 local str = "You see a wild "..string.lower(getCreatureName(thing.uid)).." [level "..getPokemonLevel(thing.uid).."].\n"
 if isShiny(thing.uid) then
 str = "You see a "..string.lower(getCreatureName(thing.uid)).." [level "..getPokemonLevel(thing.uid).."].\n"
 end
 if getPokemonGender(thing.uid)  == SEX_MALE then
  str = str.."It is male."
 elseif getPokemonGender(thing.uid)  == SEX_FEMALE then
  str = str.."It is female."
 else
  str = str.."It is genderless."
 end
 doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, str)
return false
elseif isSummon(thing.uid) and not isPlayer(thing.uid) then
 local boostlevel = getItemAttribute(getPlayerSlotItem(getCreatureMaster(thing.uid), 8).uid, "boost") or 0
 local boostshow = " + "..boostlevel.."]"
 if showBoostSeparated then
  boostshow = "] [+"..boostlevel.."]"
 end
 local levelinfo = "["..getPokemonLevel(thing.uid)..""..boostshow..""
 if getCreatureMaster(thing.uid) == cid then
  local myball = getPlayerSlotItem(cid, 8).uid
  local nexp = getItemAttribute(myball, "nextlevelexp")
  local string = "You see your "..string.lower(getCreatureName(thing.uid)).." "..levelinfo.."."
  string = string.."\nHit points: "..getCreatureHealth(thing.uid).."/"..getCreatureMaxHealth(thing.uid).."."
  string = string.."\n"..getPokemonHappinessDescription(thing.uid)
   if getItemAttribute(myball, "level") <= 99 then
 string = string.."\nExperience needed to level up: "..nexp.."."
   end
  doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, string)
 else
  doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You see a "..string.lower(getCreatureName(thing.uid)).." "..levelinfo..".\nIt belongs to "..getCreatureName(getCreatureMaster(thing.uid))..".")
 end

return false
end

return true
end

​